SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TCMOVI_BANC_PROY_Q10]                          
/*-------------------------------------------------------*/                          
/*---Empresa               OFISIS S.A.                --*/                          
/*---Sistema               Tesoreria                  --*/                          
/*---M½dulo                Empresa                    --*/                          
/*---Programa              FLUJO PROYECTADO MENSUAL   --*/                          
/*---Script                SP_TCMOVI_BANC_Q07.sql     --*/                          
/*---Nombre SP             SP_TCMOVI_BANC_Q07         --*/                          
/*---Desarrollado por      Eduardo Vivar Pomiano      --*/                          
/*---Fecha Creacion        11/10/2001                 --*/                          
/*---Base Datos            SQL SERVER 7        --*/                          
/*---Versi½n                                      --*/                          
/*---Invoca a SP                                      --*/                          
/*------------------------------------------------------*/                          
/*---Modificado 1 por     Daniel Chiang B. --*/                          
/*---Fecha Modificaci½n   11/08/2006  --*/                           
/*---Detalle Modificaci½n Reemplazar Fecha Vencimiento por Cobro--*/                          
/*-------------------------------------------------------*/                          
/*---Modificado 2 por     Daniel Chiang B. --*/                          
/*---Fecha Modificaci½n   22/08/2006  --*/                           
/*---Corrigio problema para jalar correctamente --*/                          
/*---importes digitados por el usuario   --*/                          
/*-------------------------------------------------------*/                          
/*---Modificado 3 por     Daniel Chiang B. --*/                          
/*---Fecha Modificaci½n   24/08/2006  --*/                           
/*---Corrio problema para proyectar meses de  --*/                          
/*---años mayores al solicitado        --*/                          
/*-------------------------------------------------------*/                          
/*---Drop Proc SP_TCMOVI_BANC_Q07                      --*/                          
/*---Grant all on SP_TCMOVI_BANC_Q07 to public         --*/                           
/*---SP_TCMOVI_BANC_PROY_Q10 '01', 'SOL', 2006,12,'U'          --*/                          
/*-------------------------------------------------------*/                          
                        
--EXEC SP_TCMOVI_BANC_PROY_Q10 '01', 'SOL', 2006,12,'U'                           
                        
@ISCO_EMPR  TD_VC_002,                          
@ISCO_MONE  TD_VC_003,                          
@INNU_ANIO TD_IN_001,                          
@INNU_MESE TD_IN_001,                          
@ISTI_PRES TD_VC_001--- COMO MOSTRAR LOS IMPORTES 'U' =UNIDADES, 'M' =MILES                          
                           
AS                 
                
                          
Create Table #TWSABA_REPO(                     
    CO_EMPR CHAR(02) NULL,                     
    CO_BANC VARCHAR(03) NULL,                    
    NU_CNTA_BANC VARCHAR(20) NULL,                    
    AA_BNCO VARCHAR(04) NULL,                    
    MM_BNCO VARCHAR(02) NULL,                    
    IM_SALD_INIC Numeric(16,4) NULL)                     
                    
Create Table #TWSABA_REPO_AUXI(                     
CO_EMPR VARCHAR(02) NULL,                    
CO_BANC VARCHAR(03) NULL,                    
NU_CNTA_BANC VARCHAR(20) NULL,                    
IM_SALD_INIC Numeric(16,4) NULL)                         
                          
CREATE TABLE #TWFLUJ_CAJA_Q02_1                             
 ( CO_EMPR      varchar(3) NULL,                          
   CO_ARUB varchar(3) NULL ,    
   CO_RUBR varchar(3) NULL ,                          
   CO_SUBR varchar(3) NULL ,   
   DE_ARUB varchar(80) NULL ,                          
   DE_RUBR varchar(80) NULL ,                          
   DE_SUBR varchar(80) NULL ,                          
   FA_TIPO_CAMB numeric(9,4) DEFAULT 0,                          
   CO_MONE varchar(3) NULL,                          
   FE_OPER datetime NULL,                          
   IM_0001_NACI numeric(16,4) DEFAULT 0,                          
   IM_0002_NACI numeric(16,4) DEFAULT 0,                          
   IM_0003_NACI numeric(16,4) DEFAULT 0,                          
   IM_0004_NACI numeric(16,4) DEFAULT 0,                          
   IM_0005_NACI numeric(16,4) DEFAULT 0,                          
   IM_0006_NACI numeric(16,4) DEFAULT 0,                          
   IM_0007_NACI numeric(16,4) DEFAULT 0,                          
   IM_0008_NACI numeric(16,4) DEFAULT 0,                          
   IM_0009_NACI numeric(16,4) DEFAULT 0,                          
   IM_0010_NACI numeric(16,4) DEFAULT 0,                          
   IM_0011_NACI numeric(16,4) DEFAULT 0,                          
   IM_0012_NACI numeric(16,4) DEFAULT 0,                          
   FA_TIPO_0001 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0002 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0003 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0004 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0005 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0006 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0007 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0008 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0009 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0010 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0011 numeric(9,4) DEFAULT 0,                          
   FA_TIPO_0012 numeric(9,4) DEFAULT 0,                          
   IM_SAIN_NACI numeric(15,4) DEFAULT 0,                          
   ST_DIGI      varchar(1) NULL,                          
   NU_ORDE      Int Default 0,                      
   CO_BANC varchar(3) NULL ,                              
   NU_CNTA_BANC varchar(20) NULL ,                              
   DE_CNTA_BANC varchar(100) NULL,                      
   TI_DETA_EMPR  varchar(1) NULL ,                            
   TI_DETA_BANC  varchar(1) NULL)                          
                          
DECLARE                          
@VNFE_0001 TD_IN_001,                           
@VNNU_ANNO TD_IN_001,                          
@CSCO_EMPR VARCHAR (50),                          
@VSNU_ANIO VARCHAR(4),                          
@VSNU_MESE VARCHAR (2),                          
@VNNU_FACT NUMERIC(16,4),                          
@OSTI_DOCU_LETR TD_VC_003,                          
@VNNU_MESE_ANTE TD_IN_001,                          
@VNNU_ANNO_ANTE TD_IN_001,                          
@VNNU_MESE_REPO TD_IN_001,                          
@VSCO_MONE_NACI TD_VC_003,                          
@VSCO_MONE_EXTR TD_VC_003,                          
@VDFE_INIC  TD_DT_001,                          
@VNIM_EMPL NUMERIC(16,4),                          
@VNIM_OBRE NUMERIC(16,4),                          
@VNIM_0001 NUMERIC(16,4),                          
@VNIM_0002 NUMERIC(16,4),                          
@VNIM_0003 NUMERIC(16,4),                          
@VNIM_0004 NUMERIC(16,4),                          
@VNIM_0005 NUMERIC(16,4),                          
@VNIM_0006 NUMERIC(16,4),                          
@VNIM_0007 NUMERIC(16,4),                          
@VNIM_AFPS NUMERIC(16,4),                          
@VNIM_CTSM NUMERIC(16,4),                          
@VNIM_CTSS NUMERIC(16,4),                          
@VNIM_SENA NUMERIC(16,4),                          
@VNIM_ESSA NUMERIC(16,4),                          
@VNIM_IESS NUMERIC(16,4),                          
@VNIM_QCAT NUMERIC(16,4),                          
@VDFE_INIC_AUXI TD_DT_001,                          
@VSCO_ARUB_INGR TD_VC_003,                
@VSCO_ARUB_EGRE TD_VC_003,                          
@VSDE_ARUB_INGR TD_VC_100,                          
@VSDE_ARUB_EGRE TD_VC_100,                          
@VNNU_ANIO TD_IN_001,                          
@VNNU_CONT_MESE TD_IN_001,                          
@VNNU_MESE_PROY TD_IN_001,                          
@VSDE_SELE VARCHAR(6000),                          
@VSDE_VALO VARCHAR(6000),                          
@VSCO_EMPR VARCHAR (50),                          
@VSDE_CAMP VARCHAR(20),                          
@VSNU_CONT_MESE VARCHAR(2),                       
@INNU_SECU_MNAC TD_IN_001,                          
@VSNU_SECU_MNAC VARCHAR (4),                          
@IDFE_PROY_MAMN TD_DT_001,                          
@INNU_SECU_MEXT TD_IN_001,                          
@VSNU_SECU_MEXT VARCHAR (4),                          
@IDFE_PROY_MAEX TD_DT_001,                          
@VNNU_CORR_MESE TD_IN_001,                
@VSCO_MONE_DIGI TD_VC_003,                           
@VSNU_MESE_PROY VARCHAR(2),                      
@VNNU_MESE_DIGI TD_IN_001,                          
@VNNU_ANIO_DIGI TD_IN_001,                      
@VSNU_MESE_DIGI VARCHAR(2),                      
@VSNU_ANIO_DIGI VARCHAR(4)                      
                          
--@VNFE_VENC      TD_IN_001                          
                          
-- PRESENTACION EN UNIDADES O MILES                          
IF @ISTI_PRES = 'U'                          
 SELECT @VNNU_FACT = 1                          
IF @ISTI_PRES = 'M'                          
 SELECT @VNNU_FACT = 0.001                          
                          
                        
                          
-- PERIODO AÑO-MES                          
                      
SELECT  @VSNU_MESE = Convert (Varchar(02),@INNU_MESE),                           
 @VSNU_ANIO = Convert (Varchar(04),@INNU_ANIO),                          
 @VNNU_MESE_REPO = @INNU_MESE                          
                          
SELECT  @VDFE_INIC = Convert(Datetime,'01'+'/'+@VSNU_MESE+'/'+@VSNU_ANIO, 103)                          
                          
                          
-- Soles y Dolares                      
Select @VSCO_MONE_NACI = CO_MONE_DEFA, @VSCO_MONE_EXTR = CO_MONE_EXTR                          
From  TMPARA_TESO                          
Where CO_EMPR = @ISCO_EMPR                          
                          
-- Cual es el tipo de Doc Letras                          
Exec  SP_TTDOCU_CNTB_Q02 6, @OSTI_DOCU_LETR  OUTPUT                              
                          
/****************************************************/                          
                             
SELECT @VNNU_ANIO_DIGI = @INNU_ANIO,  @VNNU_MESE_DIGI = @INNU_MESE,                       
@VNNU_CONT_MESE = 1                       
                      
SELECT @VNNU_MESE_PROY = @INNU_MESE                                   
                      
SELECT @VSDE_CAMP = 'IM_' + REPLICATE('0', 4-LEN(RTRIM(LTRIM(STR(@VNNU_CONT_MESE))))) +RTRIM(LTRIM(STR(@VNNU_CONT_MESE))) 
                             
SELECT @VSDE_CAMP = @VSDE_CAMP + '_NACI'                      
SELECT @VSDE_VALO = 'IM_CALC_ME' + REPLICATE('0', 2-LEN(RTRIM(LTRIM(STR(@VNNU_MESE_PROY))))) 
+RTRIM(LTRIM(STR(@VNNU_MESE_PROY)))                          
                            
 ----   SETEO @VNNU_MESE CON EL MES INICIAL ---------                          
                            
--- LOOP PARA LLENAR LA TABLA TEMPORAL MES POR MES, DESDE EL MES 1 AL MES 12 -------------------                              
WHILE @VNNU_CONT_MESE <= 12                              
BEGIN                     
 SELECT  @VSNU_MESE_DIGI = CONVERT(CHAR(2), @VNNU_MESE_DIGI),                              
  @VSNU_ANIO_DIGI = CONVERT(CHAR(4), @VNNU_ANIO_DIGI)                              
                               
                      
--   SELECT     @VSNU_ANIO_DIGI , 'PRUEBA1'                       
   ----- INSERTO EN OTRA TABLA TEMPORAL EL IMPORTE CONVERTIDO EN EL PERIODO CORRESPONDIENTE ----------------                  
        
   EXECUTE('                          
   INSERT INTO #TWFLUJ_CAJA_Q02_1                             
   (        CO_EMPR, CO_ARUB, DE_ARUB, CO_RUBR, DE_RUBR, CO_SUBR, DE_SUBR, NU_ORDE, ST_DIGI,  ' + @VSDE_CAMP + ' , 
TI_DETA_EMPR, TI_DETA_BANC)                          
   Select T1.CO_EMPR,  T1.CO_ARUB, T1.DE_ARUB, T2.CO_RUBR, T2.DE_RUBR, T3.CO_SUBR,                           
                  T3.DE_SUBR, T3.NU_ORDE, "D",' + @VSDE_VALO + '  , "1", "2"                      
   From TTARUB_FINA T1, TTRUBR_FINA T2, TTSUBR_FINA T3, TDFLUJ_PROY T4                        
   Where T1.CO_EMPR = ' + @ISCO_EMPR + '                          
    And T1.ST_REPO = "S"                          
    And T1.CO_EMPR = T2.CO_EMPR                          
    And T1.CO_ARUB = T2.CO_ARUB                            
    And T2.CO_EMPR = T3.CO_EMPR                
    And T2.CO_ARUB = T3.CO_ARUB                          
    And T2.CO_RUBR = T3.CO_RUBR                            
    And T3.CO_EMPR = T4.CO_EMPR                          
    And T4.NU_ANIO = CONVERT(INT, ' + @VSNU_ANIO_DIGI + ')                             
    And T3.CO_ARUB = T4.CO_ARUB                          
    And T3.CO_RUBR = T4.CO_RUBR                          
    And T3.CO_SUBR = T4.CO_CLSU                  
    order by T1.CO_EMPR, T1.NU_ORDE, T2.NU_ORDE, T3.NU_ORDE                   
   ')                       
                      
EXECUTE SP_TWSABA_FLUJ_Q02 @ISCO_EMPR, @ISCO_MONE, @VSNU_ANIO_DIGI, @VSNU_MESE_DIGI                  
                    
EXECUTE('                       
INSERT INTO #TWFLUJ_CAJA_Q02_1 (CO_EMPR, CO_BANC, NU_CNTA_BANC, DE_CNTA_BANC, NU_ORDE, ' + @VSDE_CAMP + ', TI_DETA_EMPR, 
TI_DETA_BANC)                              
select T2.CO_EMPR, T2.CO_BANC, T2.NU_CNTA_BANC, T2.DE_CNTA_BANC,0,                         
T4.IM_SALD_INIC, "1", "1"                          
 from  TTBANC_FINA T1, TMCNTA_BANC T2, #TWSABA_REPO T4                          
 Where T2.CO_EMPR =   ' + @ISCO_EMPR + '                         
  and t1.co_banc = t2.co_banc                        
  and t1.st_banc_empr = "S"                                
  And T2.CO_EMPR = T4.CO_EMPR                          
  And T2.CO_BANC = T4.CO_BANC                          
  And T2.NU_CNTA_BANC = T4.NU_CNTA_BANC                                       
 ORDER BY T2.CO_EMPR, T2.CO_BANC, T2.NU_CNTA_BANC                       
')                       
                   
DELETE FROM #TWSABA_REPO_AUXI                    
DELETE FROM #TWSABA_REPO                 
                
                                
                
                
                   
-- SELECT  *FROM   TCFACT_PRME                      
--SELECT @VNNU_MESE_DIGI = @VNNU_MESE_DIGI + 1, @VNNU_CONT_MESE = @VNNU_CONT_MESE + 1                              
                      
select @VNNU_MESE_PROY = @VNNU_MESE_PROY + 1                        
select @VNNU_CONT_MESE = @VNNU_CONT_MESE + 1                       
select @VNNU_MESE_DIGI = @VNNU_MESE_DIGI + 1                      
                      
                      
If @VNNU_MESE_PROY > 12                        
      Begin                        
    Select @VNNU_MESE_PROY = 1                        
    Select @VNNU_MESE_DIGI = 1                      
    Select @VNNU_ANIO_DIGI = @VNNU_ANIO_DIGI + 1                         
      End                        
                      
                      
  SELECT @VSDE_CAMP = 'IM_' + REPLICATE('0', 4-LEN(RTRIM(LTRIM(STR(@VNNU_CONT_MESE))))) 
+RTRIM(LTRIM(STR(@VNNU_CONT_MESE)))                              
  SELECT @VSDE_CAMP = @VSDE_CAMP + '_NACI'                      
  SELECT @VSDE_VALO = 'IM_CALC_ME' + REPLICATE('0', 2-LEN(RTRIM(LTRIM(STR(@VNNU_MESE_PROY))))) 
+RTRIM(LTRIM(STR(@VNNU_MESE_PROY)))                                 
END                              
                        
                      
-- HALLANDO EL TIPO DE CAMBIO                        
 Select @VNNU_CONT_MESE = 1,                         
        @VNNU_MESE_PROY = @INNU_MESE,                         
        @VSNU_ANIO_DIGI = Convert (Varchar(4), @INNU_ANIO)                        
                      
 While  @VNNU_CONT_MESE <= 12                         
    Begin                        
                        
  Select @VSDE_CAMP = 'FA_TIPO_' + REPLICATE('0', 4-LEN(RTRIM(LTRIM(STR(@VNNU_CONT_MESE))))) 
+RTRIM(LTRIM(STR(@VNNU_CONT_MESE)))                        
  Select @VSNU_MESE_PROY = Convert( Varchar(2), @VNNU_MESE_PROY)                        
                        
  ----- SE HACE EL UPDATE EN LA TABLA CORRESPONDIENTE -------                        
                        
   EXECUTE('                        
UPDATE #TWFLUJ_CAJA_Q02_1                           
SET  ' + @VSDE_CAMP + ' = ISNULL( (Select FA_CAMB_CMPR From TCFACT_PRME Where TCFACT_PRME.CO_EMPR =  "'  + @ISCO_EMPR + 
'" And  TCFACT_PRME.CO_MONE =  "'+ @VSCO_MONE_EXTR + '" And TCFACT_PRME.NU_ANNO =  CONVERT(INT, ' + @VSNU_ANIO_DIGI + ') 
And TCFACT_PRME.NU_MESE = CONVERT(INT, ' + @VSNU_MESE_PROY + ' ) )  , 0)                 
' )                        
                        
                        
  Select @VNNU_CONT_MESE = @VNNU_CONT_MESE + 1                         
  Select @VNNU_MESE_PROY  = @VNNU_MESE_PROY + 1                         
                        
  If @VNNU_MESE_PROY > 12                        
     Begin                        
   Select @VNNU_MESE_PROY = 1                        
   Select @VSNU_ANIO_DIGI = Convert (Varchar(04),Convert(Int, @VSNU_ANIO_DIGI) + 1 )                        
     End                        
    End                        
                        
                      
                        
--ACTUALIZAMOS A LA MONEDA DE PRESENTACION LO DIGITADO                      
                      
                      
                      
UPDATE #TWFLUJ_CAJA_Q02_1                    
Set   IM_0001_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0001_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0001, 1))*(Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0002_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0002_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0002, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0003_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0003_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0003, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0004_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0004_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0004, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0005_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0005_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0005, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0006_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0006_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0006, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0007_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0007_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0007, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0008_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0008_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0008, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0009_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0009_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0009, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0010_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0010_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0010, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0011_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0011_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0011, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      IM_0012_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0012_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0012, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                        
      ST_DIGI = 'D'                        
FROM  #TWFLUJ_CAJA_Q02_1    T1, TDFLUJ_PROY T2, TMPARA_TESO T3                        
Where T2.CO_EMPR = T1.CO_EMPR                
And   T2.CO_ARUB = T1.CO_ARUB                        
And   T2.CO_RUBR = T1.CO_RUBR                        
And   T2.CO_CLSU = T1.CO_SUBR                        
And   T3.CO_EMPR = T1.CO_EMPR                        
                       
                          
-- Select final para reporte --                          
     
    
INSERT INTO #TWFLUJ_CAJA_Q10_1 (CO_EMPR, DE_EMPR, CO_ARUB, DE_ARUB, CO_RUBR, DE_RUBR,  CO_SUBR, DE_SUBR,                      
   
IM_ME01_PROY, IM_ME02_PROY, IM_ME03_PROY, IM_ME04_PROY, IM_ME05_PROY, IM_ME06_PROY, IM_ME07_PROY, IM_ME08_PROY,               
         
IM_ME09_PROY, IM_ME10_PROY, IM_ME11_PROY, IM_ME12_PROY, CO_BANC, NU_CNTA_BANC, DE_CNTA_BANC, TI_DETA_EMPR, TI_DETA_BANC)      
                          
SELECT T1.CO_EMPR, MAX(T2.DE_NOMB),                          
  T1.CO_ARUB, MAX(T1.DE_ARUB),                           
  T1.CO_RUBR, MAX(T1.DE_RUBR), T1.CO_SUBR, MAX(T1.DE_SUBR),                          
  SUM(ISNULL(T1.IM_0001_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0002_NACI,0))*@VNNU_FACT,                           
  SUM(ISNULL(T1.IM_0003_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0004_NACI,0))*@VNNU_FACT,                           
  SUM(ISNULL(T1.IM_0005_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0006_NACI,0))*@VNNU_FACT,                          
  SUM(ISNULL(T1.IM_0007_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0008_NACI,0))*@VNNU_FACT,                           
  SUM(ISNULL(T1.IM_0009_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0010_NACI,0))*@VNNU_FACT,                           
  SUM(ISNULL(T1.IM_0011_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0012_NACI,0))*@VNNU_FACT,                      
  T1.CO_BANC, T1.NU_CNTA_BANC, MAX(T1.DE_CNTA_BANC), MAX(T1.TI_DETA_EMPR), MAX(T1.TI_DETA_BANC)                          
                          
FROM #TWFLUJ_CAJA_Q02_1    T1, TMEMPR T2                          
WHERE T1.CO_EMPR = @ISCO_EMPR   
AND T1.CO_EMPR = T2.CO_EMPR                                                 
GROUP BY T1.CO_EMPR, T1.CO_ARUB, T1.CO_RUBR, T1.CO_SUBR, T1.CO_BANC, T1.NU_CNTA_BANC                          
                         
ORDER By T1.CO_EMPR, T1.CO_ARUB, T1.CO_RUBR, T1.CO_SUBR                          
                          
RETURN                          
/********************************* FIN ***********************************/


GO
